//递推法求欧拉函数

#include<cstdio>
#include<iostream>
using namespace std;
#define LL long long
#define maxn 1000000

LL a[maxn+1];
int main()
{
	for(int i=1;i<=maxn;i++)a[i]=i;
	for(int i=2;i<=maxn;i+=2)a[i]/=2;
	for(int i=3;i<=maxn;i+=2)
		if(a[i]==i)
		{
			for(int j=i;j<=maxn;j+=i)
				a[j]=a[j]/i*(i-1);
		}
	for(int i=3;i<=maxn;i++)
		a[i]+=a[i-1];
	int n;
	while(cin>>n&&n)
	{
		cout<<a[n]<<endl;
	}
	return 0;
}


